home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / umg / umg.bas < prev    next >
BASIC Source File  |  1993-07-08  |  20KB  |  433 lines
  1. 100 '
  2. 110 'ＵＭＧライブのＰＲ　Ｖｏｌ．１
  3. 120 '
  4. 130 'このプログラムは，バージョン２．１以降専用です。
  5. 140 '
  6. 200 REM ------    初期設定    ------
  7. 210 CLEAR ,,,491000:DIM LOGO%(60480),MEMO%(76800)
  8. 220 DIM POX(23),POY(23),POZ(23),ZM%(23,16,3),JYUN(23)
  9. 230 DIM J%(700),G%(700),R%(700),B%(700),AU(500),AR(500),AF(500)
  10. 240 DIM VN%(41500),TA%(36700),OS%(7300),BUF16%(7300),BUF32%(7300)
  11. 250 SCREEN 1,1,2,1:SCREEN@ 0:PALETTE:DEMO=0
  12. 260 SYMBOL(230,220),"データを読み込み中です",1,1,7
  13. 270 SYMBOL(230,240),"しばらくお待ち下さい",1,1,7:SCREEN 1,0:SCREEN@ 1
  14. 280 LOAD@"VT.TIF":GET@A(0,0)-(169,239),VN%
  15. 290 GET@A(97,125)-(222,181),BUF32%
  16. 300 GET@A(170,0)-(319,239),TA%:SCREEN@ 0
  17. 310 LINE(0,0)-(251,113),PSET,%15,BF
  18. 320 SYMBOL(0,22),"     ＵＭＧライブのお知らせ   ",1,1,%14
  19. 330 SYMBOL(0,68),"  操作はすべてマウスで行います",1,1,%14
  20. 340 GET@A(0,0)-(251,113),OS%
  21. 350 FOR I=0 TO 4:POX(I)=I*65:POY(I)=10:NEXT I
  22. 360 FOR I=5 TO 14:POX(I)=(I-5)*65:POY(I)=160:NEXT I
  23. 370 FOR I=15 TO 23:POX(I)=(I-15)*65:POY(I)=310:NEXT I
  24. 380 FOR A=0 TO 23
  25. 390 X=POX(A)+32-(320-(POX(A)+32))/12
  26. 400 Y=POY(A)+69-(240-(POY(A)+69))/10
  27. 410 FOR K=1 TO 16
  28. 420 L=X*(1-1/K):H=INT(Y*(1-1/K)+.5!)
  29. 430 L1=L-INT(L/8)*8:L1=INT(L1*K+.5!):IF L1=8*K THEN L1=0:L=L+8
  30. 440 L2=-L1+&H8A 
  31. 450 L=INT(L/8)
  32. 460 IF (H MOD 2)=1 THEN L=L+128 
  33. 470 H=INT(H/2):KK=17*(K-1)
  34. 480 ZM%(A,K,0)=L:ZM%(A,K,1)=H:ZM%(A,K,2)=KK:ZM%(A,K,3)=L2
  35. 490 NEXT K,A
  36. 500 U=0:R=200:F=0:FOR I=0 TO 700:J%(I)=(I MOD 5)+11
  37. 510 U=U+RND(1)*100-50:IF U<0 THEN U=0 ELSE IF U>255 THEN U=255
  38. 520 R=R+RND(1)*100-50:IF R<0 THEN R=0 ELSE IF R>255 THEN R=255
  39. 530 F=F+RND(1)*100-50:IF F<0 THEN F=0 ELSE IF F>255 THEN F=255
  40. 540 G%(I)=U:R%(I)=R:B%(I)=F:NEXT I
  41. 550 U=.3!:R=.3!:F=0:FOR I=0 TO 500
  42. 560 U=U+RND(1)*.2!-.1!:IF U<.3! THEN U=.3! ELSE IF U>.99! THEN U=.99!
  43. 570 R=R+RND(1)*.2!-.1!:IF R<.3! THEN R=.3! ELSE IF R>.99! THEN R=.99!
  44. 580 F=F+RND(1)*.1!-.05!:IF F<0 THEN F=0 ELSE IF F>.5! THEN F=.5!
  45. 590 AU(I)=U:AR(I)=R:AF(I)=F:NEXT I
  46. 600 LOAD@"UMGLOGO.TIF"
  47. 610 GET@A(0,10)-(324,149),LOGO%
  48. 620 GET@A(0,160)-(639,299),LOGO%,12000
  49. 630 GET@A(0,310)-(584,449),LOGO%,35000
  50. 640 LOAD@"RND1115.TIF",(0,10)
  51. 650 GET@A(0,10)-(64,149),BUF16%
  52. 660 FOR I=0 TO 23
  53. 670 PUT@A(POX(I),POY(I))-(POX(I)+64,POY(I)+139),BUF16%
  54. 680 NEXT I
  55. 690 PUT@A(0,10)-(324,149),LOGO%,MATTE,,,7
  56. 700 PUT@A(0,160)-(639,299),LOGO%,MATTE,,,7,12000
  57. 710 PUT@A(0,310)-(584,449),LOGO%,MATTE,,,7,35000
  58. 720 FOR I=0 TO 23
  59. 730 GET@A(POX(I),POY(I))-(POX(I)+64,POY(I)+139),LOGO%,I*2520
  60. 740 NEXT I
  61. 750 LOAD@"UZUMAKI.tif"
  62. 760 FOR I=1 TO 239
  63. 770 GET@A(0,I)-(639,I),BUF16%
  64. 780 PUT@A(0,480-I)-(639,480-I),BUF16%
  65. 790 NEXT I
  66. 800 GOTO 1170
  67. 810 *ZOOM16:L=X*(1-1/K):H=INT(Y*(1-1/K)+.5!)
  68. 820 L1=L-INT(L/8)*8:L1=INT(L1*K+.5!):IF L1=8*K THEN L1=0:L=L+8
  69. 830 L2=-L1+&H8A 
  70. 840 L=INT(L/8)
  71. 850 IF (H MOD 2)=1 THEN L=L+128 
  72. 860 H=INT(H/2):KK=17*(K-1)
  73. 870 OUT &H440,21:OUT &H442,L:OUT &H443,H
  74. 880 OUT &H440,27:OUT &H443,KK
  75. 890 OUT &H440,22:OUT &H442,L2
  76. 900 RETURN
  77. 910 *ZOOMA
  78. 920 A0%=ZM%(A,K,0):A1%=ZM%(A,K,1):A2%=ZM%(A,K,2):A3%=ZM%(A,K,3)
  79. 930 PALETTE 1,1,1:OUT &H440,21:OUT &H442,A0%:OUT &H443,A1%:OUT &H440,27:OUT &H443,A2%:OUT &H440,22:OUT &H442,A3%
  80. 940 RETURN
  81. 950 *UZUPAL
  82. 960 U=AU(V):R=AR(V):F=AF(V):V=V+1:IF V>500 THEN V=0
  83. 970 *UZUPAL2
  84. 980 J=J+1:IF J>10 THEN J=0
  85. 990 G=F*255:PALETTE J,[0,G,0]
  86. 1000 FOR W=1 TO 4:P=W*50:PALETTE (J+W) MOD 11,[P*R,G,P*U]
  87. 1010 PALETTE (J+10-W) MOD 11,[P*R,G,P*U]:NEXT W
  88. 1020 PALETTE (J+5) MOD 11,[250*R,G,250*U]
  89. 1030 PALETTE (J+10) MOD 11,[0,G,0]
  90. 1040 RETURN
  91. 1050 *UZUPAL3
  92. 1060 U=AU(V):R=AR(V):F=AF(V):V=V+1:IF V>500 THEN V=0
  93. 1070 J=J+2:IF J>10 THEN J=J-11
  94. 1080 GOTO 990
  95. 1090 *UZUDMY
  96. 1100 GOTO 990
  97. 1110 *VT1
  98. 1120 PUT@A(169*(1-I),239*(1-I))-(169*I,239*I),VN%,,,,,70000*(1-I)
  99. 1130 SCREEN 1,0:GOSUB *UZUPAL3:SCREEN 1,1:RETURN
  100. 1140 *VT2
  101. 1150 PUT@A(149*(1-I)+170,239*(1-I))-(149*I+170,239*I),TA%,,,,,70000*(1-I)
  102. 1160 SCREEN 1,0:GOSUB *UZUPAL3:SCREEN 1,1:RETURN
  103. 1170 REM    ------    メイン　プログラム    ------   
  104. 1180 SCREEN 1,1:CLS
  105. 1190 FOR I=0 TO 23:POZ(I)=0:NEXT I:GOZ=0
  106. 1200 RANDOMIZE 200:FOR I=0 TO 23
  107. 1210 A=INT(RND(1)*23.99!):IF POZ(A)=1 THEN 1210 
  108. 1220 JYUN(I)=A:POZ(A)=1:NEXT I
  109. 1230 FOR I=11 TO 15:CG=RND(1)*255:CR=RND(1)*255:CB=RND(1)*255
  110. 1240 SCREEN 1,0:PALETTE I,[CG,CR,CB]
  111. 1250 SCREEN 1,1:PALETTE I,[CG,CR,CB]
  112. 1260 NEXT I:U=.3!:R=.3!:F=0:Q=0:V=0
  113. 1270 SCREEN 1,0,2:GOSUB *UZUPAL:SCREEN 1,0,3
  114. 1280 FOR B=1 TO 100:WAIT 4:GOSUB *UZUPAL:NEXT B:SCREEN 1,1,3
  115. 1290 A=JYUN(GOZ):K=8:GOSUB *ZOOMA
  116. 1300 PUT@A(POX(A),POY(A))-(POX(A)+64,POY(A)+139),LOGO%,,,,,A*2520
  117. 1310 SCREEN 1,0:FOR K=9 TO 16 
  118. 1320 CP%=J%(Q):CG%=G%(Q):CR%=R%(Q):CB%=B%(Q):Q=Q+1
  119. 1330 GOSUB *UZUPAL2:SCREEN 1,1
  120. 1340 PALETTE CP%,[CG%,CR%,CB%]:GOSUB *ZOOMA:SCREEN 1,0
  121. 1350 GOSUB *UZUPAL:PALETTE CP%,[CG%,CR%,CB%]
  122. 1360 NEXT K
  123. 1370 FOR K=15 TO 1 STEP -1
  124. 1380 CP%=J%(Q):CG%=G%(Q):CR%=R%(Q):CB%=B%(Q):Q=Q+1
  125. 1390 GOSUB *UZUPAL2:SCREEN 1,1
  126. 1400 PALETTE CP%,[CG%,CR%,CB%]:GOSUB *ZOOMA:SCREEN 1,0
  127. 1410 GOSUB *UZUPAL:PALETTE CP%,[CG%,CR%,CB%]
  128. 1420 NEXT K
  129. 1430 B=0 
  130. 1440 PUT@A(POX(A),POY(A)+B*20)-(POX(A)+64,POY(A)+B*20+79),LOGO%,MATTE,,,%0,A*2520+B*360
  131. 1450 GOSUB *UZUPAL
  132. 1460 B=4 
  133. 1470 PUT@A(POX(A),POY(A)+B*20)-(POX(A)+64,POY(A)+B*20+59),LOGO%,MATTE,,,%0,A*2520+B*360
  134. 1480 GOSUB *UZUPAL
  135. 1490 SCREEN 1,1:LINE(POX(A),POY(A))-(POX(A)+64,POY(A)+139),PSET,0,BF
  136. 1500 GOZ=GOZ+1:IF GOZ<24 THEN 1290
  137. 1510 C1=30:C2=27:C3=28
  138. 1520 SCREEN 1,1:SCREEN@ 1:VIEW(0,0)-(319,255):WINDOW(0,0)-(319,255):COLOR ,[0,0,0,1]:CLS
  139. 1530 SCREEN 1,0:PALETTE 14,[100,0,0]:PALETTE 15,[C1*8,C2*8,C3*8]
  140. 1540 FOR B=1 TO 100:CP=11+INT(RND(1)*2.99!)
  141. 1550 CG=RND(1)*200+50:CR=RND(1)*200+50:CB=RND(1)*200+50
  142. 1560 PALETTE CP,[CG,CR,CB]:GOSUB *UZUPAL:WAIT 3
  143. 1570 NEXT B
  144. 1580 SCREEN 1,1
  145. 1590 FOR I=.72! TO .77! STEP .001!:GOSUB *VT1:NEXT I
  146. 1600 FOR I=.77! TO .97! STEP .003!:GOSUB *VT1:NEXT I
  147. 1610 FOR I=.97! TO .999! STEP .001!:GOSUB *VT1:NEXT I
  148. 1620 FOR I=.996! TO 1 STEP .002!:GOSUB *VT1:NEXT I
  149. 1630 FOR I=.73! TO .77! STEP .001!:GOSUB *VT2:NEXT I
  150. 1640 FOR I=.77! TO .97! STEP .003!:GOSUB *VT2:NEXT I
  151. 1650 FOR I=.97! TO .999! STEP .001!:GOSUB *VT2:NEXT I
  152. 1660 FOR I=.996! TO 1 STEP .002!:GOSUB *VT2:NEXT I
  153. 1670 '''''
  154. 1680 SCREEN 1,0
  155. 1690 FOR I=1 TO 180:GOSUB *UZUPAL:WAIT 3:NEXT I:GOSUB *UZUPAL
  156. 1700 GET@A(194,250)-(445,363),BUF16%:GOSUB *UZUPAL:SCREEN 1,1
  157. 1710 LINE(97,125)-(222,181),PSET,[C1*8,C2*8,C3*8,0],BF
  158. 1720 SCREEN 1,0:GOSUB *UZUPAL
  159. 1730 PUT@A(194,250)-(445,363),OS%
  160. 1740 SCREEN 1,1:LINE(97,125)-(222,181),PSET,[0,0,0,1],BF:SCREEN 1,0
  161. 1750 FOR I=1 TO 180:GOSUB *UZUPAL:WAIT 3:NEXT I:GOSUB *UZUPAL
  162. 1760 SCREEN 1,1:LINE(97,125)-(222,181),PSET,[C1*8,C2*8,C3*8,0],BF
  163. 1770 SCREEN 1,0:GOSUB *UZUPAL:PUT@A(194,250)-(445,363),BUF16%
  164. 1780 SCREEN 1,1:PUT@A(97,125)-(222,181),BUF32%
  165. 1790 SCREEN 1,0
  166. 1800 FOR I=1 TO 50:GOSUB *UZUPAL:WAIT 3:NEXT I:GOSUB *UZUPAL
  167. 1810 FOR I=&H42 TO &H3F2 STEP 16:L=I MOD 256:H=(I-L)/256
  168. 1820 OUT &H440,15:OUT &H442,L:OUT &H443,H:GOSUB *UZUDMY
  169. 1830 L=L+4:OUT &H440,15:OUT &H442,L:GOSUB *UZUPAL
  170. 1840 L=L+4:OUT &H440,15:OUT &H442,L:GOSUB *UZUDMY
  171. 1850 L=L+4:OUT &H440,15:OUT &H442,L:GOSUB *UZUDMY:NEXT I
  172. 1860 FOR I=1 TO 150:GOSUB *UZUPAL:WAIT 3:NEXT I
  173. 1870 SCREEN 1,1,3,0:CLS:OUT &H440,15:OUT &H442,&H46:OUT &H443,0
  174. 1880 GOTO 2030 
  175. 1890 *ZOOM32
  176. 1900 L=X*(1-2/K):H=INT(Y*(1-2/K)+.5!)
  177. 1910 L1=L-INT(L/2)*2:L1=INT(L1*K+.5!):IF L1=2*K THEN L1=0:L=L+2
  178. 1920 L2=-L1+&H8A:L=INT(L/2):KK=17*(K-1):OUT &H440,30:IF DK THEN 1940
  179. 1930 WHILE INP(&H443) AND 4:WEND:WHILE (INP(&H443) AND 4)=0:WEND
  180. 1940 OUT &H440,21:OUT &H442,L:OUT &H443,H
  181. 1950 OUT &H440,27:OUT &H443,KK:OUT &H440,22:OUT &H442,L2
  182. 1960 RETURN
  183. 1970 *WA:FOR WA=1 TO 8:NEXT WA:RETURN
  184. 1980 *FDOUT
  185. 1990 IF EE=0 THEN S=&H1FF ELSE S=&H3F6
  186. 2000 WAIT 20:MOUSE 1,0,0,0:FOR I=&H46 TO S:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:NEXT I:RETURN
  187. 2010 *NTA:PUT@A(149*(1-I)+10,239*(1-I))-(149*I+10,239*I),TA%,,,,,70000*(1-I):RETURN
  188. 2020 *NVN:PUT@A(169*(1-I),239*(1-I))-(169*I,239*I),VN%,,,,,70000*(1-I):RETURN
  189. 2030 IF DEMO=0 THEN LOAD@"hikari.tif" ELSE PUT@A(0,0)-(319,239),MEMO%
  190. 2040 SCREEN 1,0
  191. 2050 WAIT 100:EE=-1:MOUSE 0:GOSUB *FDOUT:EE=0
  192. 2060 CLS:PALETTE 0,[0,0,0]:PALETTE 14,[0,0,0]:PALETTE 15,[255,255,255]
  193. 2070 WAIT 150
  194. 2080 CLS:OUT &H440,13:OUT &H442,&HF6:OUT &H443,3
  195. 2090 LINE(50,30)-(589,439),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  196. 2100 IF DEMO=0 THEN LINE(290,355)-(490,420),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  197. 2110 RESTORE 2210:PALETTE 14,[0,0,0]
  198. 2120 FOR I=1 TO 18-DEMO:READ A$:SYMBOL(6*16,(2+I)*19),A$,1,1,%14:NEXT I
  199. 2130 FOR I=&H3F6 TO &H46 STEP -1:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:GOSUB *WA:NEXT I
  200. 2140 IF DEMO=1 THEN WAIT 1000:WAIT 1000:WAIT 500:EE=-1:GOSUB *FDOUT:CLS:OUT &H440,13:OUT &H442,&H46:OUT &H443,0:LOAD@"MAP.TIF",(0,190):WAIT 1000:EE=-1:GOTO 3030
  201. 2150 MOUSE 0,0:MOUSE 4,50,30,589,439:MOUSE 1,200,381,1
  202. 2160 IF MOUSE(2,0)=0 THEN 2160
  203. 2170 IF MOUSE(0)>290 AND MOUSE(0)<490 AND MOUSE(1)>355 AND MOUSE(1)<420 THEN 2180 ELSE 2160
  204. 2180 LINE(290,355)-(490,420),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  205. 2190 EE=-1:GOSUB *FDOUT
  206. 2200 GOTO 2390
  207. 2210 DATA"１９９３年　１１月２１日（日曜日）　午後　６：００　より"
  208. 2220 DATA"新高円寺（東京）のライブハウス「ＲＩＴＺ」におきまして，"
  209. 2230 DATA""
  210. 2240 DATA"　アーバン　　モノクローム　　　　　ジェネレイター"
  211. 2250 DATA"　ＵＲＢＡＮ　ＭＯＮＯＣＨＲＯＭＥ　ＧＥＮＥＲＡＴＯＲ"
  212. 2260 DATA""
  213. 2270 DATA"　（　略称　ＵＭＧ　）　　　　　　の，ライブを行います。"
  214. 2280 DATA"　ＵＭＧは，ＦＭ－ＴＯＷＮＳとＰＣ－８８０１ＦＡを駆使し，"
  215. 2290 DATA"ビデオ映像とＴＯＷＮＳのＣＧを　リアルタイムに合成，エフ"
  216. 2300 DATA"ェクト処理して　シンセサイザーサウンドに同期させるシステ"
  217. 2310 DATA"ムを使用しています。音楽はシンセによる打ち込みをベースに，"
  218. 2320 DATA"ギター，ボーカル，キーボードを重ねたオリジナル曲。ジャン"
  219. 2330 DATA"ルは　ハウス，ラップ，ロック，デステクノ等です。音楽や　"
  220. 2340 DATA"ＭＩＤＩ同期に興味のある方はもちろん，今まで一度もライブ"
  221. 2350 DATA"を見に行った事が無いという方も，是非一度見に来て，楽しん"
  222. 2360 DATA"でいって下さい。"
  223. 2370 DATA""
  224. 2380 DATA"                             次のページに進む"
  225. 2390 CLS:LINE(15,290)-(624,459),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  226. 2400 FOR Y=305 TO 385 STEP 80:FOR X=30 TO 480 STEP 150
  227. 2410 LINE(X,Y)-(X+130,Y+60),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  228. 2420 NEXT X,Y:EE=0
  229. 2430 RESTORE 2470:FOR I=1 TO 12:READ A$,X,Y:SYMBOL(X,Y),A$,1,1,%14:NEXT I
  230. 2440 FOR I=&H1FF TO &H46 STEP -1:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:GOSUB *WA:NEXT I
  231. 2450 MOUSE 0,0:MOUSE 4,15,290,624,459:MOUSE 1,162,369,1
  232. 2460 IF MOUSE(2,0)=0 THEN 2460 ELSE X=MOUSE(0):Y=MOUSE(1):GOTO 2590
  233. 2470 DATA"メンバー紹介",47,327
  234. 2480 DATA"システムの紹介",38,407
  235. 2490 DATA"ＲＩＴＺへの",186,319 
  236. 2500 DATA"行き方",256,335
  237. 2510 DATA"チケットの",191,399
  238. 2520 DATA"入手方法",229,415
  239. 2530 DATA"　ＴＯＷＮＳ　",340,319
  240. 2540 DATA"　ドラッグ　　",340,335
  241. 2550 DATA"オートデモ",361,407
  242. 2560 DATA"前のページに",491,319
  243. 2570 DATA"もどる",548,335
  244. 2580 DATA"終了する",512,407
  245. 2590 X=(X-30)/150:Y=(Y-305)/80:X1=X-INT(X):Y1=Y-INT(Y)
  246. 2600 IF X1<0 OR X1>.86! OR Y1<0 OR Y1>.75! THEN 2460
  247. 2610 X2=INT(X)*150+30:Y2=INT(Y)*80+305
  248. 2620 GET@A(X2,Y2)-(X2+130,Y2+60),BUF16%
  249. 2630 LINE(X2,Y2)-(X2+130,Y2+60),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  250. 2640 M=INT(X)+INT(Y)*4+1
  251. 2650 ON M GOTO 3030,3550,4010,2670,2690,2730,3580,2980
  252. 2660 BEEP:GOTO 2660
  253. 2670 'MODORU
  254. 2680 GOSUB *FDOUT:GOTO 2080
  255. 2690 'SYSTEM
  256. 2700 IF EE=1 THEN 2710 ELSE EE=1:LOAD@"SYSTEM.TIF"
  257. 2710 PUT@A(X2,Y2)-(X2+130,Y2+60),BUF16%
  258. 2720 GOTO 2460
  259. 2730 'TICKET
  260. 2740 GOSUB *FDOUT:OUT &H442,&HF6:OUT &H443,3:CLS
  261. 2750 LINE(20,20)-(619,460),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  262. 2760 LINE(510,400)-(610,446),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  263. 2770 RESTORE 2840:FOR I=1 TO 18:READ A$:SYMBOL(40,I*22+20),A$,1,1,%14:NEXT I
  264. 2780 FOR I=&H3F6 TO &H46 STEP -1:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:GOSUB *WA:NEXT I
  265. 2790 MOUSE 0,0:MOUSE 4,20,20,619,460:MOUSE 1,382,415,1
  266. 2800 IF MOUSE(2,0)=0 THEN 2800
  267. 2810 IF MOUSE(0)<510 OR MOUSE(0)>610 OR MOUSE(1)<400 OR MOUSE(1)>446 THEN 2800
  268. 2820 LINE(510,400)-(610,446),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  269. 2830 EE=-1:GOSUB *FDOUT:GOTO 2390
  270. 2840 DATA"チケットについて",""
  271. 2850 DATA"　１９９３年の１１月１０日まででしたら，下記の住所に　希望の枚数を明記"
  272. 2860 DATA"の上　枚数分の郵便小為替（一枚１０００円）を送っていただければ，２週間"
  273. 2870 DATA"以内に　チケットをお送りいたします｡（発送開始は９月中旬から）"
  274. 2880 DATA"なお，当日入場の際に　ドリンク代（５００円）が必要ですのでご了承下さい。"
  275. 2890 DATA"チケットをお持ちでない場合も　当日１８００円で入場可能ですが，できるだ"
  276. 2900 DATA"け郵送の方でお願いします。",""
  277. 2910 DATA"　ＵＭＧは　このライブ以降も活動を続けて行きます。お手紙等くだされば"
  278. 2920 DATA"９３年冬以降のライブ情報をお送りします。また，ライブの感想，ご意見など"
  279. 2930 DATA"もお待ちしています。",""
  280. 2940 DATA"チケットその他のあて先",""
  281. 2950 DATA"　　〒１８８　東京都田無市芝久保町１－２３－２"
  282. 2960 DATA"　　　　　　　　アローズ１０２号　高木庸旬方　ＵＭＧ"
  283. 2970 DATA"　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　もどる"
  284. 2980 'END
  285. 2990 GOSUB *FDOUT:OUT &H442,&HF6:OUT &H443,3:CLS
  286. 3000 X=220:Y=10:FOR K=2 TO 8:GOSUB *ZOOM32:WAIT 20:NEXT K
  287. 3010 LINE(0,0)-(639,479),PSET,7,BF
  288. 3020 END
  289. 3030 'member
  290. 3040 GOSUB *FDOUT:CLS:OUT &H440,13:OUT &H442,&HF6:OUT &H443,3
  291. 3050 SCREEN 1,1,3,1:GET@A(0,0)-(319,239),MEMO%:COLOR ,[0,0,0,1]:CLS
  292. 3060 X=75:Y=209:K=8:GOSUB *ZOOM32:PUT@A(0,0)-(169,239),VN%
  293. 3070 WAIT 50:DK=-1:FOR Y=209 TO 42 STEP -1:GOSUB *ZOOM32:NEXT Y:DK=0
  294. 3080 WAIT 100:FOR K=8 TO 2 STEP -1:GOSUB *ZOOM32:NEXT K
  295. 3090 SCREEN 1,0:LINE(360,90)-(629,350),PSET,7,BF
  296. 3100 RESTORE 3360:FOR I=1 TO 9:READ A$:SYMBOL(370,I*19+110),A$,1,1,%14:NEXT I
  297. 3110 FOR I=&H3F6 TO &H46 STEP -1:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:NEXT I
  298. 3120 SCREEN 1,1:CLS
  299. 3130 FOR I=.5! TO .55! STEP .0005!:GOSUB *NVN:NEXT I
  300. 3140 FOR I=.55! TO .77! STEP .001!:GOSUB *NVN:NEXT I
  301. 3150 FOR I=.77! TO .97! STEP .003!:GOSUB *NVN:NEXT I
  302. 3160 FOR I=.97! TO .999! STEP .0005!:GOSUB *NVN:NEXT I
  303. 3170 FOR I=.996! TO 1 STEP .002!:GOSUB *NVN:NEXT I
  304. 3180 WAIT 400:FOR K=2 TO 16:GOSUB *ZOOM32:WAIT 4:NEXT K:WAIT 28
  305. 3190 SCREEN 1,0:CLS:SCREEN 1,1:CLS:X=40:Y=209:K=8:GOSUB *ZOOM32:PUT@A(10,0)-(159,239),TA%
  306. 3200 WAIT 50:DK=-1:FOR Y=209 TO 40 STEP -1:GOSUB *ZOOM32:NEXT Y:DK=0
  307. 3210 WAIT 100:FOR K=8 TO 2 STEP -1:GOSUB *ZOOM32:NEXT K
  308. 3220 SCREEN 1,0:OUT &H440,13:OUT &H442,&HF6:OUT &H443,3:LINE(360,82)-(629,345),PSET,7,BF
  309. 3230 RESTORE 3450:FOR I=1 TO 10:READ A$:SYMBOL(370,I*19+100),A$,1,1,%14:NEXT I
  310. 3240 FOR I=&H3F6 TO &H46 STEP -1:OUT &H440,13:L=I MOD 256:H=(I-L)/256:OUT &H442,L:OUT &H443,H:NEXT I
  311. 3250 SCREEN 1,1:CLS
  312. 3260 FOR I=.5! TO .55! STEP .0005!:GOSUB *NTA:NEXT I
  313. 3270 FOR I=.55! TO .77! STEP .001!:GOSUB *NTA:NEXT I
  314. 3280 FOR I=.77! TO .97! STEP .003!:GOSUB *NTA:NEXT I
  315. 3290 FOR I=.97! TO .999! STEP .0005!:GOSUB *NTA:NEXT I
  316. 3300 FOR I=.996! TO 1 STEP .002!:GOSUB *NTA:NEXT I
  317. 3310 WAIT 400:FOR K=2 TO 16:GOSUB *ZOOM32:WAIT 4:NEXT K:WAIT 24
  318. 3320 SCREEN 1,0:CLS:SCREEN 1,1,3,0:CLS:X=0:Y=0:K=2:GOSUB *ZOOM32
  319. 3330 IF DEMO=1 THEN 3900
  320. 3340 PUT@A(0,0)-(319,239),MEMO%:SCREEN 1,0
  321. 3350 OUT &H440,13:OUT &H442,F6:OUT &H443,3:GOTO 2390
  322. 3360 DATA"名前　　　　鈴木　文太郎"
  323. 3370 DATA"生年月日　　１９６９．６．２６"
  324. 3380 DATA"星座　　　　蟹座"
  325. 3390 DATA"血液型　　　Ａ型"
  326. 3400 DATA"職業　　　　学生"
  327. 3410 DATA"パート　　　リードボーカル"
  328. 3420 DATA"　　　　　　キーボード"
  329. 3430 DATA"　　　　　　シンセサイザー"
  330. 3440 DATA"　　　　　　　プログラミング"
  331. 3450 DATA"名前　　　　高木　庸旬"
  332. 3460 DATA"生年月日　　１９６９．４．１６"
  333. 3470 DATA"星座　　　　牡羊座"
  334. 3480 DATA"血液型　　　？型"
  335. 3490 DATA"職業        学生"
  336. 3500 DATA"パート　　　ギター"
  337. 3510 DATA"　　　　　　キーボード"
  338. 3520 DATA"　　　　　　ボーカル"
  339. 3530 DATA"　　　　　　コンピューター"
  340. 3540 DATA"　　　　　　　プログラミング"
  341. 3550 'MAP
  342. 3560 IF EE<>2 THEN LOAD@"MAP.TIF"
  343. 3570 EE=2:GOTO 2710
  344. 3580 'auto demo
  345. 3590 IF EE>0 THEN LINE(0,0)-(639,289),PSET,%0,BF:EE=0
  346. 3600 LINE(50,50)-(589,239),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  347. 3610 LINE(178,180)-(278,210),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  348. 3620 LINE(359,180)-(459,210),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  349. 3630 RESTORE 3750:FOR I=1 TO 5:READ A$:SYMBOL(100,I*19+51),A$,1,1,%14:NEXT I
  350. 3640 READ A$:SYMBOL(100,187),A$,1,1,%14
  351. 3650 PUT@A(X2,Y2)-(X2+130,Y2+60),BUF16%
  352. 3660 MOUSE 1,318,195,1:MOUSE 4,50,50,589,239
  353. 3670 IF MOUSE(2,0) THEN 3670
  354. 3680 IF MOUSE(2,0)=0 THEN 3680
  355. 3690 IF MOUSE(1)<180 OR MOUSE(1)>210 THEN 3680
  356. 3700 IF MOUSE(0)>178 AND MOUSE(0)<278 THEN 3800
  357. 3710 IF MOUSE(0)>359 AND MOUSE(0)<459 THEN 3720 ELSE 3680
  358. 3720 LINE(359,180)-(459,210),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  359. 3730 WAIT 20:MOUSE 1,0,0,0:LINE(0,0)-(639,289),PSET,%0,BF
  360. 3740 IF MOUSE(2,0) THEN 3740 ELSE 2450
  361. 3750 DATA"オートデモ",""
  362. 3760 DATA"　　ＵＭＧのライブの宣伝デモを　エンドレスで流します。"
  363. 3770 DATA"　　店頭デモ等に使っていただければ嬉しいです。"
  364. 3780 DATA"　　デモ中にマウスを左クリックすると，メニューに戻ります。"
  365. 3790 DATA"　　　　　　スタート　　　　　　　　やめる"
  366. 3800 LINE(178,180)-(278,210),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  367. 3810 SCREEN 1,1:GET@A(0,0)-(319,239),MEMO%:MOUSE 1,0,0,0
  368. 3820 IF MOUSE(2,0) THEN 3820 
  369. 3830 CLS:SCREEN 1,0,0:CLS
  370. 3840 PUT@A(0,0)-(251,113),OS%
  371. 3850 LINE(0,68)-(251,98),PSET,%15,BF
  372. 3860 SYMBOL(0,68),"      Programed by N.TAKAGI",1,1,%14
  373. 3870 GET@A(0,0)-(251,113),OS%:CLS
  374. 3880 ON MOUSE(2) GOSUB 3910:XYZ=100:MOUSE(2) ON:DEMO=1
  375. 3890 XYZ=XYZ-1:IF XYZ>0 THEN 3890
  376. 3900 SCREEN 1,1,2,1:SCREEN@ 0:SCREEN 1,0:GOTO 750
  377. 3910 IF XYZ>0 THEN XYZ=100:RETURN
  378. 3920 SCREEN 0:CLS:SCREEN 1,0,3,0:SCREEN@ 0
  379. 3930 PALETTE 0,[0,0,0]:PALETTE 14,[0,0,0]:PALETTE 15,[255,255,255]
  380. 3940 SCREEN 1,1:SCREEN@ 1
  381. 3950 OUT &H440,15:OUT &H442,&H46:OUT &H443,0
  382. 3960 OUT &H440,13:OUT &H442,&HF6:OUT &H443,3
  383. 3970 PUT@A(0,0)-(319,239),MEMO%
  384. 3980 IF MOUSE(2,0) THEN 3980 
  385. 3990 DEMO=0:MOUSE(2) OFF:SCREEN 1,0
  386. 4000 RETURN 2390
  387. 4010 'DRUG
  388. 4020 IF EE>0 THEN LINE(0,0)-(639,289),PSET,%0,BF:EE=0
  389. 4030 LINE(50,50)-(589,239),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  390. 4040 LINE(178,180)-(278,210),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  391. 4050 LINE(359,180)-(459,210),PSET,7,BF,&HFFF0FFF0F0FFF0FF
  392. 4060 RESTORE 4150:FOR I=1 TO 5:READ A$:SYMBOL(100,I*19+51),A$,1,1,%14:NEXT I
  393. 4070 READ A$:SYMBOL(100,187),A$,1,1,%14
  394. 4080 PUT@A(X2,Y2)-(X2+130,Y2+60),BUF16%
  395. 4090 MOUSE 1,318,195,1:MOUSE 4,50,50,589,239
  396. 4100 IF MOUSE(2,0) THEN 4100
  397. 4110 IF MOUSE(2,0)=0 THEN 4110
  398. 4120 IF MOUSE(1)<180 OR MOUSE(1)>210 THEN 4110
  399. 4130 IF MOUSE(0)>178 AND MOUSE(0)<278 THEN 4200
  400. 4140 IF MOUSE(0)>359 AND MOUSE(0)<459 THEN 3720 ELSE 4110
  401. 4150 DATA"ＴＯＷＮＳ　ドラッグ",""
  402. 4160 DATA"画面の中央をずっと見つめていると，変な気分になってくる（？）"
  403. 4170 DATA"というやつです。"
  404. 4180 DATA"途中でマウスを左クリックすると，メニューに戻ります。"
  405. 4190 DATA"　　　　　　スタート　　　　　　　　やめる"
  406. 4200 LINE(178,180)-(278,210),PSET,7,BF,&H0F0F0F0FF0F0F0F0
  407. 4210 CLS:SCREEN 1,0,2,1:MOUSE 1,0,0,0
  408. 4220 LOAD@"UZUMAKI.tif"
  409. 4230 FOR I=1 TO 239
  410. 4240 GET@A(0,I)-(639,I),BUF16%
  411. 4250 PUT@A(0,480-I)-(639,480-I),BUF16%
  412. 4260 NEXT I
  413. 4270 IF MOUSE(2,0) THEN 4270 
  414. 4280 ON MOUSE(2) GOSUB 4380:XYZ=100:MOUSE(2) ON
  415. 4290 XYZ=XYZ-1:IF XYZ>0 THEN 4290
  416. 4300 SCREEN 1,0,1,1:U=0:L=0:F=0
  417. 4310 FOR A=0 TO 10
  418. 4320 U=U+RND(1)*.4!-.2!:IF U<.1! THEN U=.1! ELSE IF U>.99! THEN U=.99!
  419. 4330 L=L+RND(1)*.4!-.2!:IF L<.1! THEN L=.1! ELSE IF L>.99! THEN L=.99!
  420. 4340 F=F+RND(1)*.1!-.05!:IF F<0 THEN F=0 ELSE IF F>.99! THEN F=.99!
  421. 4350 FOR I=0 TO 5:P=I*50:PALETTE (A+I) MOD 11,[P*L,F*255,P*U]:NEXT I
  422. 4360 FOR I=6 TO 10:P=(10-I)*50:PALETTE (A+I) MOD 11,[P*L,F*255,P*U]:NEXT I
  423. 4370 WAIT 3:NEXT A:GOTO 4310
  424. 4380 IF XYZ>0 THEN XYZ=100:RETURN
  425. 4390 PALETTE 0,[0,0,0]:CLS:SCREEN 1,0,3,0
  426. 4400 IF MOUSE(2,0) THEN 4400
  427. 4410 OUT &H440,13:OUT &H442,&HF6:OUT &H443,3
  428. 4420 MOUSE(2) OFF:RETURN 2390
  429. 4430 '
  430. 4440 'Programed by N,TAKAGI  H.5.3.3
  431. 4450 '
  432. 4460 'UMG NO LIVE WA OMOSHIROI DESUYO!!
  433.